Top 10k strings from Poolsmaster (1989)(Intraset).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /
Back to the directory listing
8 draw=draw+2
6 u$(first)(1
6 first=u(first,1
4 away=away+3
3 hteam=first:
3 home=home+7
3 draw=draw+1
3 ;U$(hteam)
3 ;"________________________________":
3 ;"________________________________"
2 z(teamno,13
2 z(hteam,13
2 last=i(key,2
2 home=home+6
2 first=i(key,1
2 draw=draw+3
2 ateam=first:
2 a("23627")-
2 ;l$(league);
2 ;day;"/";month;"/";year
2 ;U$(ateam)
2 ;"against Team Name"
2 ;"against Home team Name"
2 ;"To STOP - ENTER '999'";
2 ;"To QUIT - ENTER '999'";
2 ;"SORTING DATA..."
2 ;"SAVE Y/N?"
2 ;"PRESS ANY KEY TO CONTINUE"
2 ;"PRESS A KEY TO CONTINUE":
2 ;"OUTPUT TO PRINTER Y/N"
2 ;"AMEND TEAM DETAILS"
2 ;" TEAM PlWoDrLoFoAgWoDrLoFoAgPt";
2 ;" Enter 1,2 or E"
1 z(teamno,9
1 z(teamno,8
1 z(teamno,7
1 z(teamno,6
1 z(teamno,5
1 z(teamno,4
1 z(teamno,3
1 z(teamno,2
1 z(teamno,12
1 z(teamno,11
1 z(teamno,10
1 z(teamno,1
1 z(ateam,13
1 x,c+width+1
1 usage=usage+1
1 teamno=first:
1 s(x,y)=s(x,y+1
1 r,c+width+1
1 r+depth,x;"
1 r+depth,c;"
1 r+depth,c+width+1
1 prev=u(hteam,2
1 n$=u$(f)(1
1 ltemp=last
1 league=league+1
1 last=ltemp
1 ind=u(hteam,1
1 goals=fh+ah
1 gf2=(z(sm,5
1 gf1=(z(bi,5
1 gd2=gf2-ga2
1 gd1=gf1-ga1
1 ga2=(z(sm,6
1 ga1=(z(bi,6
1 g$="HOME WIN"
1 g$="AWAY WIN"
1 ftemp=first:
1 first=ftemp:
1 f(x,y)=f(x,y)/f(12
1 div=z(hteam,13
1 b$=" "
1 away=away+5
1 away=away+4
1 are doing reading this?
1 a("23730")-
1 a("23641")-
1 a("23641")'"P=";
1 a("23635")'"V=";
1 What do you think you
1 W$=" "
1 V6&7 - OCT 88.
1 V5 - OCT 87.
1 V4 - AUG 87.
1 V3 - JUN 87.
1 V2 - APR 87.
1 V1 - SEP 86.
1 Update Sequences
1 U$(hteam)=i$
1 U$(hteam);
1 U$(X)="STOP "
1 THIS LINE SHOULD BE HERE.
1 T:run
1 SORT LEAGUE TABLES
1 Reset Tables
1 PRINT LEAGUE TABLES
1 POOLS PREDICTOR
1 MAKING PREDICTIONS
1 DIVISION ONE DIVISION TWO DIVISION THREE DIVISION FOUR SCOTTISH PREM SCOTTISH DIV 1 SCOTTISH DIV 2 B
1 BY D.M. EVANS
1 ABERDEEN AIRDRIE ALBION ROVERS ALDERSHOT ALLOA ARBROATH ARSENAL ASTON VILLA AYR UTD BARNSLEY BERWICK BIRMINGHAM BLACKBURN RVRS BLACKPOOL BOLTON WDRS BOURNEMOUTH BRADFORD CITY BRECHIN BRENTFORD BRIGHTON BRISTOL CITY BRISTOL ROVERS BURNLEY BURY CAMBRIDGE UTD CARDIFF CITY CARLISLE UTD CELTIC CHARLTON ATH CHELSEA CHESTER CITY CHESTERFIELD CLYDE CLYDEBANK COLCHESTER UTD COVENTRY CITY COWDENBEATH CREWE ALEX CRYSTAL P. MAIDSTONE DERBY COUNTY DONCASTER RVRS DUMBARTON DUNDEE DUNDEE UTD DUNFERMLINE EAST FIFE EAST STIRLING EVERTON EXETER CITY FALKIRK FORFAR FULHAM GILLINGHAM GRIMSBY HALIFAX TOWN HAMILTON HARTLEPOOL HEARTS HEREFORD UTD HIBERNIAN HUDDERSFIELD T.HULL IPSWICH TOWN KILMARNOCK LEEDS UTD LEICESTER CITY LEYTON ORIENT LI
1 ;z(teamno,12
1 ;day;"/";month;"/";year;
1 ;U$(teamno)
1 ;U$(hteam);
1 ;U$(ateam);
1 ;"{SAVE TO MICRODRIVE....M}"
1 ;"{SAVE LATEST TO TAPE...3}"
1 ;"type 'STOP' against Team No."
1 ;"produced draws last Saturday."
1 ;"________________________________";
1 ;"UPDATE TABLES.........1"
1 ;"UPDATE TABLES"
1 ;"UPDATE SEQUENCE FILE...2"
1 ;"UPDATE SEQUENCE FILE"
1 ;"The Following Numbers correspondto the Coupon Numbers likely tobe the Best Bet for Draws."
1 ;"Teams not in same League":
1 ;"Team No. ";X:
1 ;"TYPE 'GOTO 1' TO RERUN"
1 ;"SHOULD YOU TYPE 'RUN' TO"
1 ;"SHOULD THIS PROGRAM BREAK"
1 ;"SEQUENCE PREDICTIONS..2"
1 ;"SEQUENCE PREDICTIONS"
1 ;"SEARCHING FOR AND";
1 ;"SCOTTISH PREMIER........5"
1 ;"SCOTTISH DIVISION 2 ....7"
1 ;"SCOTTISH DIVISION 1 ....6"
1 ;"SAVE LATEST TO DISK...D"
1 ;"RESULT PREDICTIONS....1"
1 ;"RESULT PREDICTIONS"
1 ;"RESTART."
1 ;"RESET-TABLES"
1 ;"RESET TABLES..........R"
1 ;"Press any key to continue"
1 ;"Press a Key"
1 ;"Press 'C' to Continue"
1 ;"Presents"
1 ;"Please Wait....."
1 ;"Please Wait...."
1 ;"Pld W D L F A W D L F A"
1 ;"PRINT LEAGUE TABLES...L"
1 ;"PRESS ANY KEY"
1 ;"PRESS ANY KEY TO RETURN TO MENU"
1 ;"PREDICTION:";
1 ;"POOLSMASTER"
1 ;"OLD FILE ERASED":
1 ;"NOW VERIFYING MICRODRIVE":
1 ;"NOW SAVING TO MICRODRIVE":
1 ;"NEW FILE SAVED":
1 ;"NEW FILE SAVED ":
1 ;"MAKE PREDICTIONS......2"
1 ;"LEAGUE TABLES"
1 ;"LAST UPDATED: ";
1 ;"If you wish to end---";
1 ;"Enter 1,2,3,4,5,6,7 or E"
1 ;"Enter 1,2 or E"
1 ;"Enter '99' after last one."
1 ;"EXIT..................E"
1 ;"EXIT....................E"
1 ;"EXIT TO MENU..........E"
1 ;"EXIT TO MENU...........E"
1 ;"ERASING OLD FILE":
1 ;"ENTER RESULTS..........1"
1 ;"ENTER E to return to Menu"'"ENTER C to go to next Division"
1 ;"ENTER DATE MATCHES PLAYED"
1 ;"Division: ";l$(z(teamno,13
1 ;"DIVISION 4..............4"
1 ;"DIVISION 3..............3"
1 ;"DIVISION 2..............2"
1 ;"DIVISION 1..............1"
1 ;"DATE CORRECT Y/N?"
1 ;"CORRECT Y/N"
1 ;"CORRECT Y/N ?"
1 ;"Are You Quite Sure? Y/N"
1 ;"Any other key for menu"
1 ;"AT ANY TIME, ON NO ACCOUNT"
1 ;"AMENDMENTS............A"
1 ;"AMENDMENTS"
1 ;"AMEND TEAM NAME.......1"
1 ;"AMEND TEAM NAME"
1 ;"AMEND TEAM DETAILS....2"
1 ;"** ENTER RESULTS **"
1 ;"** PREDICTIONS **"
1 ;"'POOLSMASTER'"
1 ;" DETAILS CHANGED "
1 ;" ";
1 ;" "
1 2,3,4,8,10,11,12,15,16,18,19,20,21,34,35,37,42,46,48,49,51,52,58,
1 ,j)+z(x,12
1 ,j)+z(x,11
1 ,j)+z(x,10
1 ,a;z(teamno,l);" "
1 **INITIAL MENU**
1 ***SAVE TO TAPE***
1 ***SAVE TO MICRODRIVE***
1 ***ENTERING RESULTS**
1 ***AMENDMENTS***
1 **********************
1 **** CHANGE DETAILS ****
1 *** AMEND TEAM ***
1 )=((z(teamno,2
1 );U$(ateam);
1 )+z(teamno,8
1 )+z(teamno,7
1 ));" "
1 ))+(z(sm,11
1 ))+(z(sm,10
1 ))+(z(bi,11
1 ))+(z(bi,10
1 ))*w)+z(teamno,3
1 ("+a$+"+1)"):
1 "year?";year:
1 "versus team : ";n$
1 "month?";month
1 "day?";day
1 "Won at Home ";p$
1 "Won Away ";p$
1 "Team Name ";n$:
1 "SCOTTISH PREM","SCOTTISH DIV 1","SCOTTISH DIV 2"
1 "SCORE ";n$:
1 "SCORE ";n$
1 "Played ";p$
1 "Lost at Home ";p$
1 "Lost Away ";p$
1 "Home team ";n$:
1 "Goals FOR Away ";p$
1 "Goals FOR (Home) ";p$
1 "Goals AGAINST Away ";p$
1 "Goals AGAINST (Home) ";p$
1 "Enter Team Name ";n$:
1 "Enter League, ENTER to Skip: ";d$:
1 "Enter HOME team ";n$
1 "Enter Coupon Number: ";n$
1 "Drawn at Home ";p$
1 "Drawn Away ";p$
1 "DIVISION ONE","DIVISION TWO","DIVISION THREE","DIVISION FOUR"
1 "Change to: ";i$:
1 "Away team ";n$
1 "+a$+"+256*
1 the Coupon Nos that"
1 INTRASET LTD MAY 1989
1 INTRASET LTD"
1 W
1